home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / tr.dir / 00011_ComputeScore.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.5 KB  |  97 lines
  1. on ComputeScore aSelectedAnswer
  2.   global gzTRBalloonObj, gTR_BalloonNumJustHit, gzTRPlayerObj, gzTR_ActiveQuestArray, gcTRROVER, gTRGameObj
  3.   if aSelectedAnswer <> 0 then
  4.     set vTheRightOne to getAt(gzTR_ActiveQuestArray, 5)
  5.     if aSelectedAnswer = vTheRightOne then
  6.       set vGotItRight to 1
  7.       ActivateRightAnswer()
  8.     else
  9.       set vGotItRight to 0
  10.       ActivateWrongAnswer()
  11.     end if
  12.     set vBalloonPointValue to mGetMyPointValue(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit))
  13.     if mGetAmIDouble(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit)) then
  14.       set vBalloonPointValue to vBalloonPointValue * 2
  15.     end if
  16.     set vWhosTurn to mGetWhosTurn(gTRGameObj)
  17.     set vOldScore to mGetMyCurrentScore(getAt(gzTRPlayerObj, vWhosTurn))
  18.     if vGotItRight then
  19.       set vNewScore to vOldScore + vBalloonPointValue
  20.     else
  21.       set vNewScore to vOldScore - vBalloonPointValue
  22.     end if
  23.     mSetMyCurrentScore(getAt(gzTRPlayerObj, vWhosTurn), vNewScore)
  24.     if vWhosTurn = 1 then
  25.       set the foreColor of cast "Player1Score" to 0
  26.       set the backColor of cast "Player1Score" to 255
  27.     else
  28.       set the foreColor of cast "Player2Score" to 0
  29.       set the backColor of cast "Player2Score" to 255
  30.     end if
  31.   end if
  32.   SetPlayerScores()
  33.   if mGetPlayMode(gTRGameObj) = 2 then
  34.     SwapTurns()
  35.   end if
  36.   updateStage()
  37.   return vGotItRight
  38. end
  39.  
  40. on ActivateRightAnswer
  41.   global gzTR_Rsounds
  42.   set gzTR_Rsounds to list("Ra1", "Ra2", "Ra3", "Ra4", "Ra5", "Ra6")
  43.   repeat with vI = 1 to 10
  44.     updateStage()
  45.   end repeat
  46.   repeat while soundBusy(1)
  47.     nothing()
  48.   end repeat
  49.   puppetSound(0)
  50.   set vSound to random(6)
  51.   updateStage()
  52.   repeat while soundBusy(1)
  53.     nothing()
  54.   end repeat
  55.   puppetSound(0)
  56. end
  57.  
  58. on ActivateWrongAnswer
  59.   global gzTR_Wsounds
  60.   set gzTR_Wsounds to list("Wa1", "Wa2", "Wa3", "Wa4", "Wa5", "Wa6")
  61.   puppetSound(0)
  62.   set vSound to random(count(gzTR_Wsounds))
  63.   updateStage()
  64.   repeat while soundBusy(1)
  65.     nothing()
  66.   end repeat
  67.   puppetSound(0)
  68. end
  69.  
  70. on HowToPlay
  71.   LaunchHelp()
  72. end
  73.  
  74. on KillAllBalloons
  75.   global gcTRBAL_CH1, gzTRBalloonObj
  76.   repeat with vIndex = 1 to 30
  77.     mSetMyVisible(getAt(gzTRBalloonObj, vIndex), 0)
  78.   end repeat
  79.   repeat with vIndex = gcTRBAL_CH1 to gcTRBAL_CH1 + 29
  80.     set the visible of sprite vIndex to 0
  81.   end repeat
  82.   repeat with vIndex = gcTRBAL_CH1 to gcTRBAL_CH1 + 29
  83.     puppetSprite(vIndex, 0)
  84.   end repeat
  85.   updateStage()
  86. end
  87.  
  88. on ShowChampions
  89.   global gcTRBAL_CH1
  90.   set the visible of sprite 47 to 1
  91.   SaveHistState()
  92.   MakeChampList()
  93.   MakePersBestList()
  94.   set the visible of sprite 45 to 0
  95.   go("ChampionsATB")
  96. end
  97.